#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <stdbool.h>
#include <arpa/inet.h>
#include <sys/socket.h>
#include "ssu_log.h"
#include "Protocol.h"

#define FILENAME "20022992_2_s.log"
#define BUF_SIZE 1024

extern int calcexp(const char *exp, int *berror);

void error_handling(char *message);
void _readlog();

int main(int argc, char *argv[]) {
	int serv_sock, clnt_sock, option;
	struct sockaddr_in serv_adr, clnt_adr;
	socklen_t optlen, clnt_adr_sz;

	// 마지막 '\n'
	char greeting_message[] = "Input formula.\n";
	char error_message[] = "Invalid formula.\n";
	char end_message[] = "Bye\n";
	char send_message[BUF_SIZE];
	char recv_message[BUF_SIZE];

	uint8_t outBuf[BUF_SIZE];
	uint8_t inBuf[BUF_SIZE];

	int str_len;

	// 계산관련
	char tmpbuf[BUF_SIZE];
	int berror;
	int result;

	// 로그 파일 스트림 열기
	// 계속 누적한다
	FILE *fp = fopen(FILENAME, "a+");

	// 로그파일 용 버퍼 배열
	uint8_t logBuf[BUF_SIZE];

	// 2.3: 실행형식
	// 포트를 인자 값으로 전달
	if (argc != 2) {
		printf("Usage : %s <port>\n", argv[0]);
		exit(1);
	}

	serv_sock = socket(PF_INET, SOCK_STREAM, 0);
	if (serv_sock == -1)
		error_handling("socket() error");

	// 테스트 환경을 위한 소켓 옵션 적용
	optlen = sizeof(option);
	option = true;
	setsockopt(serv_sock, SOL_SOCKET, SO_REUSEADDR, &option, optlen);

	memset(&serv_adr, 0, sizeof(serv_adr));
	serv_adr.sin_family = AF_INET;
	serv_adr.sin_addr.s_addr = htonl(INADDR_ANY);
	serv_adr.sin_port = htons(atoi(argv[1]));

	// 2.4.1: 생성된 소켓을 이용하여 포트를 오픈하고 사용자의 접속을 기다린다
	if (bind(serv_sock, (struct sockaddr*) &serv_adr, sizeof(serv_adr)) == -1)
		error_handling("bind() error");
	if (listen(serv_sock, 5) == -1)
		error_handling("listen() error");
	clnt_adr_sz = sizeof(clnt_adr);
	clnt_sock = accept(serv_sock, (struct sockaddr*) &clnt_adr, &clnt_adr_sz);

	//========================================================//
	// 소켓용 스트림 채널 생성
	FILE *channel = fdopen(clnt_sock, "w+");

	// remain size - 버퍼링 길이 계산 변수
	long rSize = sizeof(outBuf);

	// buffer size
	long bufSize = sizeof(outBuf);

	// message size
	int mSize = 0;

	// data part size
	int dtSize = 0;
	int diSize = 0;
	int dSize = 0;

	// log size
	int lSize = 0;

	// header structure
	CalcInfo ci;
	int hSize = sizeof(ci);

	// intialize buffer
	memset(inBuf, 0, sizeof(inBuf));
	memset(outBuf, 0, sizeof(outBuf));

	//========================================================//
	// 클라이언트 접속시 시작 문자배열을 전송한다
	// send greeting_message
	// to set M_HELLO, Text encode
	ci.protocol = htonl(PROTOCOL_NM);
	ci.messageType = htonl(M_HELLO);
	ci.length = htonl(0);

	rSize = (size_t) Text_Encode(greeting_message, outBuf, rSize);
	if (rSize < 0) {
		error_handling("Text_Encode() error");
	}

	// frame & send
	// header size + data size
	bufSize = hSize + (BUF_SIZE - rSize);
	mSize = Delim_PutMsg(&ci, outBuf, bufSize, hSize, channel);
	if (mSize < 0) {
		error_handling("Delim_PutMsg() error");
	}

	//========================================================//
	// "Bye\n"이 입력될 때까지 반복 수행
	while (1) {
		// 수신문자배열 초기화
		memset(recv_message, 0, sizeof(recv_message));
		str_len = 0;

		// initialize to buffer
		memset(outBuf, 0, sizeof(outBuf));
		memset(inBuf, 0, sizeof(inBuf));
		bufSize = sizeof(outBuf);
		rSize = sizeof(outBuf);
		mSize = 0;
		dtSize = 0;
		diSize = 0;
		dSize = 0;

		// ======================================================== //
		// get header part
		if(fread(inBuf, sizeof(uint8_t), sizeof(ci), channel) < 0) {
			error_handling("header fread() error");
		}

		// header binary decode
		if(!Bin_Decode(inBuf, &ci, hSize)) {
			error_handling("header Bin_Decode() error");
		}
		// #개선필요
		ci.protocol = ntohl(ci.protocol);
		ci.messageType = ntohl(ci.messageType);
		ci.length = ntohl(ci.length);

		// ======================================================== //
		// 송신 문자배열 초기화
		memset(send_message, 0, sizeof(send_message));

		switch (ci.messageType) {

		// 접속 종료 메시지
		case M_BYE:
			// get data part
			// data delimiter deframming
			dtSize = Delim_GetNextMsg(inBuf, BUF_SIZE, channel);

			if(dtSize > 0) {
				// data text decode
				while(1) {
					dSize = Text_Decode(recv_message, inBuf+diSize, bufSize);
					printf("%s", recv_message);

					if(dSize < 0)
						break;
					else
						diSize += dSize;
				}

				// 연결을 종료하는 문자 입력 처리
				if (!strcmp(recv_message, end_message))
					break;
			}

			break;

		// 계산 요청 메시지
		case M_CALCREQ:
			// ======================================================== //
			// text decode 후에 각 연산별 계산 처리
			// int값, +-*/() 처리가 가능한 수식 계산 구현

			// 수식 계산 결과 전송
			// to set M_CALCRES, Text encode, result of calculate
			ci.protocol = htonl(PROTOCOL_NM);
			ci.messageType = htonl(M_CALCRES);
			ci.length = htonl(0);

			// '\n' 만 입력된 경우 오류 처리
			if (strlen(recv_message) == 1) {
				berror = 1;
			} else {
				// 수식 메시지 text decode

				// get data part
				// data delimiter deframming
				dtSize = Delim_GetNextMsg(inBuf, BUF_SIZE, channel);

				if(dtSize > 0) {
					// 사용자로부터 수신되는 수식 메시지 출력 및 로그 기록
					while(1) {
						// 오류 상태 변수
						berror = 0;

						// 계산용 임시 버퍼 초기화
						memset(tmpbuf, 0, sizeof(tmpbuf));

						// 송신 문자배열 초기화
						memset(send_message, 0, sizeof(send_message));

						// 수신 문자배열 초기화
						memset(recv_message, 0, sizeof(recv_message));

						// data text decode
						dSize = Text_Decode(recv_message, inBuf+diSize, bufSize);

						// 입력받은 수식 화면 출력
						printf("%s", recv_message);

						// 수식 로그 기록
						// '\n' 포함, '\0' 문자 제외
						ssu_log_write(fp, recv_message, strlen(recv_message));

						// 수식 메시지 끝 '\n' 제외
						strncpy(tmpbuf, recv_message, strlen(recv_message)-1);

						// 수식 계산
						result = calcexp(tmpbuf, &berror);

						// 수식 계산 결과 메시지를 사용자에게 전송
						// 만약 수식에 오류가 있다면 오류 메시지 전송
						// 오류 상태 변수 적용
						if (berror) {
							strncpy(send_message, error_message, strlen(error_message));
						} else {
							// int -> char 변환 처리
							sprintf(tmpbuf, "%d\n", result);
							strncpy(send_message, tmpbuf, strlen(tmpbuf));
						}

						// 수식 계산 결과 - text encode
						rSize = (size_t) Text_Encode(send_message, outBuf+mSize, rSize);
						if (rSize < 0) {
							error_handling("Text_Encode() error");
						}
						mSize = BUF_SIZE - rSize;

						if(dSize < 0)
							break;
						else
							diSize += dSize;
					}
				}

			}

			break;

		// 로그 파일 요청 메시지
		case M_LOGREQ:
			// data part 없음

			// logBuf 초기화
			memset(logBuf, 0, sizeof(logBuf));

			// 현재 fd close
			fclose(fp);

			// log file fd open
			FILE *logfp = fopen(FILENAME, "r+");
			long logSize = 0;
			int logTmpSize = 0;

			// log file  binary encode
			while(1) {
//				logTmpSize = fread(logBuf+logSize, sizeof(uint8_t), sizeof(logBuf), logfp);

				logTmpSize = Bin_Encode(logBuf+logSize, sizeof(logBuf), logfp);

				// 파일의 끝
				if(logTmpSize < 1)
					break;

				// accumulate total log size
				logSize += logTmpSize;

			}

			// logfp close & reopen fp
			fclose(logfp);
			fp = fopen(FILENAME, "a+");

			// to set remain buffer size
			rSize -= logSize;

			// header
			ci.protocol = htonl(PROTOCOL_NM);
			ci.messageType = htonl(M_LOGRES);
			// set header length
			ci.length = htonl(logSize);

			break;

		}

		//========================================================//
		// 연결을 종료하는 문자 입력 처리
		if(ci.messageType == M_BYE)
			break;

		//========================================================//
		// 보내기용 스트림 채널 다시 생성
		channel = fdopen(clnt_sock, "w+");

		//========================================================//
		// frame & send
		// header size + data size

		// M_CALCRES 인 경우 delimiter framming
		if(ci.messageType == ntohl(M_CALCRES)) {
			bufSize = hSize + (BUF_SIZE - rSize);
			mSize = Delim_PutMsg(&ci, outBuf, bufSize, hSize, channel);
			if (mSize < 0) {
				error_handling("Delim_PutMsg() error");
			}
		}

		// M_LOGRES 인 경우 length framming
		if(ci.messageType == ntohl(M_LOGRES)) {
			bufSize = hSize + (BUF_SIZE - rSize);
			lSize = Length_PutMsg(&ci, logBuf, bufSize, hSize, channel);
			if (lSize < 0) {
				error_handling("Length_PutMsg() error");
			}
		}

	} // End of while (until 'Bye\n')

	// 소켓 종료
	close(clnt_sock);
	close(serv_sock);

	// fdopen 소켓 종료
	fclose(channel);

	// 파일 스트림 종료
	fclose(fp);

	// 기록된 로그 확인
	_readlog(FILENAME);

	return 0;
}

void error_handling(char *message) {
	fputs(message, stderr);
	fputc('\n', stderr);
	exit(1);
}

void _readlog(char *fileNm) {
	char buf[BUF_SIZE];
	int logSize;
	FILE *fp = fopen(fileNm, "r+");

	memset(buf, 0, sizeof(buf));

	printf("=== [%s] ===\n", fileNm);

	while(1) {
		logSize = ssu_log_read(fp, buf);

		if(logSize < 1)
			break;

		printf("%d:%s", logSize, buf);
		memset(buf, 0, sizeof(buf));
	}

	fclose(fp);
}
